#!/bin/sh
# MetaCard 2.4 stack
# The following is not ASCII text,
# so now would be a good time to q out of more
exec mc $0 "$@"
                                                                                                                                   languageSwitcher   P?local gsLanguage

on preOpenCard
  set the width of me to 380
  set the height of me to 285
end preOpenCard

on setLanguageSelection tLanguage
  global gPrefsPath
  put tLanguage into gsLanguage
  set the cLanguage of stack gPrefsPath to tLanguage
  set the text of btn "help" of stack "Menubar" to "-" & cr & "&" & localiseGetDisplayValue("action.aboutTT")
end setLanguageSelection

on languageSelect
  global gPrefsPath
  put locationGetLanguages() into tTemp
  filter tTemp without "[.].*"
  put tTemp into button "languageList"
  if the number of lines of tTemp > 1 then 
    if the cLanguage of stack gPrefsPath is not empty then
      setLanguageSelection the cLanguage of stack gPrefsPath
    else
      setLanguageSelection getCurrentLocale()
    end if
  else
    set the cLanguage of stack gPrefsPath to line 1 of tTemp
    setLanguageSelection line 1 of tTemp
  end if
  put localiseGetTagLists("english", gsLanguage) into tTemp
end languageSelect

on localiseStack pStack 
  --now iternate down the card setting all the control with cTags to the correct language
  --  write pStack && the long time & cr to stdout
  --  write the executionContexts & cr to stdout
  put the substacks of stack pStack into tSubStacks
  repeat for each line tSubStack in tSubStacks
    processSubStack tSubStack  
  end repeat
   
  put the cardNames of stack pStack into tCards
  repeat for each line tCard in tCards
    processCard tCard, pStack
  end repeat
end localiseStack 

on processSubStack pSubStack
  put the cardNames of stack pSubStack into tCards
  repeat for each line tCard in tCards
    processCard tCard, pSubStack
  end repeat
end processSubStack

on processCard pCard, pStack
  processControls pCard, pStack 
end processCard

on processControls pCard, pStack
  --put pCard && pStack
  if pStack is "answer dialog" or pStack is "ask dialog" or char 1 to 3 of pStack is "rev" or "error" is in pStack or "file selector" is in pStack or "page setup" is in pStack or "printer choose" is in pStack then exit processControls
  repeat with x = 1 to the number of controls of card pCard of stack pStack
    if the short name of control x of card pCard of stack pStack is "Some Text" then
      --breakpoint
    end if
    if the cWrapGroup of control x of card pCard of stack pStack is "true" then
      --set the wrapContent of control x of card pCard of stack pStack to localiseGetDisplayValue(the cTag of control x of card pCard of stack pStack)
      next repeat
    end if
    if the name of control x of card pCard of stack pStack contains "button" then
      if the cTag of control x of card pCard of stack pStack is not empty then 
        set the itemdel to "."
        put item 1 of the cTag of control x of card pCard of stack pStack into tTemp
        if tTemp is "img" then
          --This is for the navigation buttons which have a rollover state
          put item 2 of the cTag of control x of card pCard of stack pStack into tImage
          if tImage is "teachYourFingers" then breakpoint
          put localiseGetLang2() into tLanguage
          set the icon of control x of card pCard of stack pStack to the short id of image tImage of card tLanguage of stack "imageBank" 
          put "Over" after tImage 
          set the hilitedicon of control x of card pCard of stack pStack to the short id of image tImage of card tLanguage of stack "imageBank"
          if tImage contains "safari" or tImage contains "brick" then
            replace "Over" with "Disable" in tImage 
            set the disabledicon of control x of card pCard of stack pStack to the short id of image tImage of card tLanguage of stack "imageBank"
          end if 
        else if tTemp is "imgStatic" then
          put item 2 of the cTag of control x of card pCard of stack pStack into tImage
          put localiseGetLang2() into tLanguage
          set the icon of control x of card pCard of stack pStack to the short id of image tImage of card tLanguage of stack "imageBank" 
        else if tTemp is "pauseResume" then
          put localiseGetLang2() into tLanguage
          set the icon of control x of card pCard of stack pStack to the short id of image "pause" of card tLanguage of stack "imageBank" 
          set the hilitedicon of control x of card pCard of stack pStack to the short id of image "resume" of card tLanguage of stack "imageBank"
        else
          set the label of control x of card pCard of stack pStack to localiseGetDisplayValue(the cTag of control x of card pCard of stack pStack)
        end if
      end if
    else if the name of control x of card pCard of stack pStack contains "field" then 
      if the cTag of control x of card pCard of stack pStack is not empty then 
        set the text of control x of card pCard of stack pStack to localiseGetDisplayValue(the cTag of control x of card pCard of stack pStack)
      end if 
    else if the name of control x of card pCard of stack pStack contains "image" then 
      if the cTag of control x of card pCard of stack pStack is not empty then 
        set the itemdel to "."
        put item 1 of the cTag of control x of card pCard of stack pStack into tTemp
        if tTemp is "imgStatic" then
          --answer "Found"&& the name of control x of card pCard of stack pStack && tTemp
          put item 2 of the cTag of control x of card pCard of stack pStack into tImage
          put localiseGetLang2() into tLanguage
          put the short name of control x of card pCard of stack pStack into tImageName
          put image tImage of card tLanguage of stack "imageBank" into image tImageName of card pCard of stack pStack
        end if
      end if
    end if
  end repeat
end processControls

on localise
  repeat with x = 1 to the number of controls of me
    if the cTag of control x of me is not empty then
      if the text of control x of me is not empty then
        set the text of control x of me to localiseGetDisplayValue(the cTag of control x of me)
      else
        set the label of control x of me to localiseGetDisplayValue(the cTag of control x of me)
      end if
    end if
  end repeat
end localise

on saveStackRequest
  local tSubStack
  -- delete all vector movies before allowing stack to be saved
  stackVectorMoviesDelete the short name of me
  repeat for each line tSubStack in the substacks of me
    stackVectorMoviesDelete tSubStack
  end repeat
  pass saveStackRequest
end saveStackRequest

on stackVectorMoviesDelete pStackName
  set the defaultStack to pStackName
  repeat with x=the number of graphics of this stack down to 1
    if the style of graphic x of this stack is "vectormovie" then
      delete graphic x of this stack
    end if
  end repeat
end stackVectorMoviesDelete

  q          white      l|   
cLanguage  french            " W tahoma   U Tahoma   U Lucida Grande  
 U Geneva  cREVGeneral    	scriptChecksum  !eu!:vc1
debugObjects   breakPoints   handlerList  preOpenCard
setLanguageSelection
languageSelect
localiseStack
processSubStack
processCard
processControls
localise
saveStackRequest
stackVectorMoviesDeletescriptSelection  char 6718 to 6717
bookmarks   prevHandler  languageSelecttempScript   script K"<p><font color="#0000FF">local</font> gsLanguage</p>
<p></p>
<p><font color="#980517">on</font> preOpenCard</p>
<p>  <font color="#0000FF">set </font>the <font color="#FF0000">width</font> of <font color="#F88017">me </font>to 380</p>
<p>  <font color="#0000FF">set</font> the <font color="#FF0000">height </font>of <font color="#F88017">me </font>to 285</p>
<p><font color="#980517">end</font> preOpenCard</p>
<p></p>
<p><font color="#980517">on</font> setLanguageSelection tLanguage</p>
<p>  <font color="#0000FF">global</font> gPrefsPath</p>
<p>  <font color="#0000FF">put</font> tLanguage into gsLanguage</p>
<p>  <font color="#0000FF">set </font>the cLanguage of stack gPrefsPath to tLanguage</p>
<p>  <font color="#0000FF">set </font>the <font color="#FF0000">text </font>of btn &quot;help&quot; of stack &quot;Menubar&quot; to &quot;-&quot; &amp; cr &amp; &quot;&amp;&quot; &amp; localiseGetDisplayValue<font color="#000000">(&quot;</font><font face="Helvetica" color="#000000">action.aboutTT</font><font color="#000000">&quot;)</font></p>
<p><font color="#980517">end</font> setLanguageSelection</p>
<p></p>
<p><font color="#980517">on</font> languageSelect</p>
<p>  <font color="#0000FF">global</font> gPrefsPath</p>
<p>  <font color="#0000FF">put</font> locationGetLanguages<font color="#000000">() </font>into tTemp</p>
<p>  <font color="#0000FF">filter</font> tTemp without &quot;[.].*&quot;</p>
<p>  <font color="#0000FF">put</font> tTemp into button &quot;languageList&quot;</p>
<p><font color="#980517">  if </font>the <font color="#FF0000">number </font>of lines of tTemp &gt; 1 <font color="#980517">then </font></p>
<p><font color="#980517">    if </font>the cLanguage of stack gPrefsPath is not empty <font color="#980517">then</font></p>
<p><font color="#980517">      </font>setLanguageSelection the cLanguage of stack gPrefsPath</p>
<p><font color="#F88017">    </font><font color="#980517">else</font></p>
<p><font color="#0000FF">      </font>setLanguageSelection getCurrentLocale<font color="#000000">()</font></p>
<p><font color="#980517">    end if</font></p>
<p><font color="#980517">  else</font></p>
<p><font color="#0000FF">    set </font>the cLanguage of stack gPrefsPath<font color="#F88017"> </font>to line 1 of tTemp</p>
<p><font color="#980517">    </font>setLanguageSelection line 1 of tTemp</p>
<p><font color="#68228B">  </font><font color="#980517">end</font> <font color="#980517">if</font></p>
<p><font color="#0000FF">  put</font><font color="#68228B"> </font>localiseGetTagLists<font color="#000000">(&quot;english&quot;,</font><font color="#68228B"> </font>gsLanguage<font color="#000000">)</font><font color="#68228B"> </font>into<font color="#68228B"> </font>tTemp</p>
<p><font color="#980517">end</font> languageSelect</p>
<p></p>
<p><font color="#980517">on</font> localiseStack pStack </p>
<p>  <font color="#68228B">--now iternate down the card setting all the control with cTags to the correct language</font></p>
<p><font color="#68228B">  --  write pStack &amp;&amp; the long time &amp; cr to stdout</font></p>
<p><font color="#68228B">  --  write the executionContexts &amp; cr to stdout</font></p>
<p>  <font color="#0000FF">put</font> the <font color="#FF0000">substacks</font> of stack pStack into tSubStacks</p>
<p>  <font color="#980517">repeat</font> <font color="#980517">for</font> each line tSubStack in tSubStacks</p>
<p>    processSubStack tSubStack  </p>
<p>  <font color="#980517">end</font> <font color="#980517">repeat</font></p>
<p>   </p>
<p>  <font color="#0000FF">put</font> the <font color="#FF0000">cardNames</font> of stack pStack into tCards</p>
<p>  <font color="#980517">repeat</font> <font color="#980517">for</font> each line tCard in tCards</p>
<p>    processCard tCard, pStack</p>
<p>  <font color="#980517">end</font> <font color="#980517">repeat</font></p>
<p><font color="#980517">end</font> localiseStack </p>
<p></p>
<p><font color="#980517">on</font> processSubStack pSubStack</p>
<p>  <font color="#0000FF">put</font> the <font color="#FF0000">cardNames</font> of stack pSubStack into tCards</p>
<p>  <font color="#980517">repeat</font> <font color="#980517">for</font> each line tCard in tCards</p>
<p>    processCard tCard, pSubStack</p>
<p>  <font color="#980517">end</font> <font color="#980517">repeat</font></p>
<p><font color="#980517">end</font> processSubStack</p>
<p></p>
<p><font color="#980517">on</font> processCard pCard, pStack</p>
<p>  processControls pCard, pStack </p>
<p><font color="#980517">end</font> processCard</p>
<p></p>
<p><font color="#980517">on</font> processControls pCard<font color="#000000">,</font> pStack</p>
<p>  <font color="#68228B">--put pCard &amp;&amp; pStack</font></p>
<p><font face="Monaco" size="9" color="#000000">  </font><font face="Monaco" size="9" color="#980517">if</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">pStack</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">is</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">&quot;answer dialog&quot;</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">or</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">pStack</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">is</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">&quot;ask dialog&quot;</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">or</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">char</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">1</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">to</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">3 of</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">pStack</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">is</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">&quot;rev&quot;</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">or</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">&quot;error&quot;</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">is</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">in</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">pStack</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">or</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">&quot;file selector&quot;</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">is</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">in pStack</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">or</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">&quot;page setup&quot;</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">is</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">in</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">pStack</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">or</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">&quot;printer choose&quot;</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">is</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">in</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">pStack </font><font face="Monaco" size="9" color="#980517">then</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9" color="#0000FF">exit</font><font face="Monaco" size="9" color="#000000"> </font><font face="Monaco" size="9">processControls</font></p>
<p>  <font color="#980517">repeat</font> <font color="#980517">with</font> x = 1 to the <font color="#FF0000">number</font> of controls of card pCard of stack pStack</p>
<p>    <font color="#980517">if </font>the <font color="#FF0000">short name </font>of control x of card pCard of stack pStack is &quot;Some Text&quot; <font color="#980517">then</font></p>
<p><font color="#980517">      </font><font color="#68228B">--breakpoint</font></p>
<p><font color="#0000FF">    </font><font color="#980517">end</font> <font color="#980517">if</font></p>
<p>    <font color="#980517">if </font>the cWrapGroup of control x of card pCard of stack pStack is &quot;true&quot; <font color="#980517">then</font></p>
<p><font color="#980517">      </font><font color="#68228B">--set the wrapContent of control x of card pCard of stack pStack to localiseGetDisplayValue(the cTag of control x of card pCard of stack pStack)</font></p>
<p><font color="#980517">      </font><font color="#0000FF">next </font><font color="#980517">repeat</font></p>
<p><font color="#980517">    end</font> <font color="#980517">if</font></p>
<p>    <font color="#980517">if</font> the <font color="#FF0000">name</font> of control x of card pCard of stack pStack contains &quot;button&quot; <font color="#980517">then</font></p>
<p><font color="#980517">      if</font> the cTag of control x of card pCard of stack pStack is not empty <font color="#980517">then</font> </p>
<p>        <font color="#0000FF">set</font> the <font color="#FF0000">itemdel</font> to &quot;.&quot;</p>
<p>        <font color="#0000FF">put</font> item 1 of the cTag of control x of card pCard of stack pStack into tTemp</p>
<p>        <font color="#980517">if</font> tTemp is &quot;img&quot; <font color="#980517">then</font></p>
<p>          <font color="#68228B">--This is for the navigation buttons which have a rollover state</font></p>
<p>          <font color="#0000FF">put</font> item 2 of the cTag of control x of card pCard of stack pStack into tImage</p>
<p>          <font color="#980517">if</font> tImage is &quot;teachYourFingers&quot; <font color="#980517">then</font> <font color="#0000FF">breakpoint</font></p>
<p>          <font color="#0000FF">put</font> localiseGetLang2<font color="#000000">()</font> into tLanguage</p>
<p><font color="#0000FF">          set</font> the <font color="#FF0000">icon</font> of control x of card pCard of stack pStack to the <font color="#FF0000">short</font> <font color="#FF0000">id</font> of image tImage of card tLanguage of stack &quot;imageBank&quot; </p>
<p><font color="#0000FF">          put</font> &quot;Over&quot; after tImage </p>
<p>          <font color="#0000FF">set</font> the <font color="#FF0000">hilitedicon</font> of control x of card pCard of stack pStack to the <font color="#FF0000">short</font> <font color="#FF0000">id</font> of image tImage of card tLanguage of stack &quot;imageBank&quot;</p>
<p>          <font color="#980517">if </font>tImage contains &quot;safari&quot; or tImage contains &quot;brick&quot; <font color="#980517">then</font></p>
<p><font color="#0000FF">            replace</font> &quot;Over&quot; <font color="#980517">with </font>&quot;Disable&quot; in tImage </p>
<p><font color="#980517">            </font><font color="#0000FF">set</font> the <font color="#FF0000">disabledicon</font> of control x of card pCard of stack pStack to the <font color="#FF0000">short</font> <font color="#FF0000">id</font> of image tImage of card tLanguage of stack &quot;imageBank&quot;</p>
<p><font color="#980517">          end if</font> </p>
<p>        <font color="#980517">else</font> <font color="#980517">if</font> tTemp is &quot;imgStatic&quot; <font color="#980517">then</font></p>
<p>          <font color="#0000FF">put</font> item 2 of the cTag of control x of card pCard of stack pStack into tImage</p>
<p>          <font color="#0000FF">put</font> localiseGetLang2() into tLanguage</p>
<p><font color="#0000FF">          set</font> the <font color="#FF0000">icon</font> of control x of card pCard of stack pStack to the <font color="#FF0000">short</font> <font color="#FF0000">id</font> of image tImage of card tLanguage of stack &quot;imageBank&quot; </p>
<p>        <font color="#980517">else</font> <font color="#980517">if</font> tTemp is &quot;pauseResume&quot; <font color="#980517">then</font></p>
<p>          <font color="#0000FF">put</font> localiseGetLang2() into tLanguage</p>
<p><font color="#0000FF">          set</font> the <font color="#FF0000">icon</font> of control x of card pCard of stack pStack to the <font color="#FF0000">short</font> <font color="#FF0000">id</font> of image &quot;pause&quot; of card tLanguage of stack &quot;imageBank&quot; </p>
<p>          <font color="#0000FF">set</font> the <font color="#FF0000">hilitedicon</font> of control x of card pCard of stack pStack to the <font color="#FF0000">short</font> <font color="#FF0000">id</font> of image &quot;resume&quot; of card tLanguage of stack &quot;imageBank&quot;</p>
<p><font color="#980517">        else</font></p>
<p><font color="#0000FF">          set</font> the <font color="#FF0000">label</font> of control x of card pCard of stack pStack to localiseGetDisplayValue<font color="#000000">(the</font> cTag of control x of card pCard of stack pStack<font color="#000000">)</font></p>
<p><font color="#980517">        end</font> <font color="#980517">if</font></p>
<p><font color="#980517">      end</font> <font color="#980517">if</font></p>
<p><font color="#980517">    else</font> <font color="#980517">if</font> the <font color="#FF0000">name</font> of control x of card pCard of stack pStack contains &quot;field&quot; <font color="#980517">then</font> </p>
<p><font color="#980517">      if</font> the cTag of control x of card pCard of stack pStack is not empty <font color="#980517">then</font> </p>
<p><font color="#0000FF">        set</font> the <font color="#FF0000">text</font> of control x of card pCard of stack pStack to localiseGetDisplayValue(the cTag of control x of card pCard of stack pStack)</p>
<p><font color="#980517">      end</font> <font color="#980517">if</font> </p>
<p><font color="#980517">    else</font> <font color="#980517">if</font> the <font color="#FF0000">name</font> of control x of card pCard of stack pStack contains &quot;image&quot; <font color="#980517">then</font> </p>
<p><font color="#980517">      if</font> the cTag of control x of card pCard of stack pStack is not empty <font color="#980517">then</font> </p>
<p><font color="#0000FF">        set</font> the <font color="#FF0000">itemdel</font> to &quot;.&quot;</p>
<p><font color="#0000FF">        put</font> item 1 of the cTag of control x of card pCard of stack pStack into tTemp</p>
<p><font color="#980517">        if</font> tTemp is &quot;imgStatic&quot; <font color="#980517">then</font></p>
<p><font color="#68228B">          --answer &quot;Found&quot;&amp;&amp; the name of control x of card pCard of stack pStack &amp;&amp; tTemp</font></p>
<p><font color="#0000FF">          put</font> item 2 of the cTag of control x of card pCard of stack pStack into tImage</p>
<p><font color="#0000FF">          put</font> localiseGetLang2() into tLanguage</p>
<p><font color="#0000FF">          put</font> the <font color="#FF0000">short</font> <font color="#FF0000">name</font> of control x of card pCard of stack pStack into tImageName</p>
<p><font color="#0000FF">          put</font> image tImage of card tLanguage of stack &quot;imageBank&quot; into image tImageName of card pCard of stack pStack</p>
<p><font color="#980517">        end</font> <font color="#980517">if</font></p>
<p><font color="#980517">      end</font> <font color="#980517">if</font></p>
<p><font color="#980517">    end</font> <font color="#980517">if</font></p>
<p><font color="#980517">  end</font> <font color="#980517">repeat</font></p>
<p><font color="#980517">end</font> processControls</p>
<p></p>
<p><font color="#980517">on</font> localise</p>
<p>  <font color="#980517">repeat</font> <font color="#980517">with</font> x = 1 to the <font color="#FF0000">number</font> of controls of <font color="#F88017">me</font></p>
<p>    <font color="#980517">if</font> the cTag of control x of <font color="#F88017">me</font> is not empty <font color="#980517">then</font></p>
<p>      <font color="#980517">if</font> the <font color="#FF0000">text</font> of control x of <font color="#F88017">me</font> is not empty <font color="#980517">then</font></p>
<p>        <font color="#0000FF">set</font> the <font color="#FF0000">text</font> of control x of <font color="#F88017">me</font> to localiseGetDisplayValue(the cTag of control x of <font color="#F88017">me</font>)</p>
<p>      <font color="#980517">else</font></p>
<p>        <font color="#0000FF">set</font> the <font color="#FF0000">label</font> of control x of <font color="#F88017">me</font> to localiseGetDisplayValue(the cTag of control x of <font color="#F88017">me</font>)</p>
<p>      <font color="#980517">end</font> <font color="#980517">if</font></p>
<p>    <font color="#980517">end</font> <font color="#980517">if</font></p>
<p>  <font color="#980517">end</font> <font color="#980517">repeat</font></p>
<p><font color="#980517">end</font> localise</p>
<p></p>
<p><font color="#980517">on</font> saveStackRequest</p>
<p>  <font color="#0000FF">local </font>tSubStack</p>
<p>  <font color="#68228B">-- delete all vector movies before allowing stack to be saved</font></p>
<p><font color="#68228B">  </font>stackVectorMoviesDelete the <font color="#FF0000">short name </font>of <font color="#F88017">me</font></p>
<p><font color="#F88017">  </font><font color="#980517">repeat for </font>each line tSubStack in the <font color="#FF0000">substacks </font>of <font color="#F88017">me</font></p>
<p><font color="#F88017">    </font>stackVectorMoviesDelete tSubStack</p>
<p><font color="#980517">  end</font> <font color="#980517">repeat</font></p>
<p><font color="#980517">  </font><font color="#0000FF">pass </font>saveStackRequest</p>
<p><font color="#980517">end</font> saveStackRequest</p>
<p></p>
<p><font color="#980517">on </font>stackVectorMoviesDelete pStackName</p>
<p>  <font color="#0000FF">set</font> the <font color="#FF0000">defaultStack</font> to pStackName</p>
<p>  <font color="#980517">repeat with </font>x<font color="#000000">=the </font><font color="#FF0000">number </font>of graphics of this stack down to 1</p>
<p>    <font color="#980517">if </font>the <font color="#FF0000">style </font>of graphic x of this stack is &quot;vectormovie&quot; <font color="#980517">then</font></p>
<p><font color="#980517">      </font><font color="#0000FF">delete </font>graphic x of this stack</p>
<p>    <font color="#980517">end if</font></p>
<p><font color="#980517">  end</font> <font color="#980517">repeat</font></p>
<p><font color="#980517">end</font> stackVectorMoviesDelete</p>
<p></p>
<p></p> cREVGeometryCache    stackID  1013   home   	@         |     cREVGeneral    scriptChecksum  ُ 	B~
bookmarks   handlerList   tempScript   prevHandler  preOpenCardscriptSelection  char 1 to 0script  <p></p> cREVGeometryCacheIDs    1118869155614  10071118869495606  10111118869166343  10061118869296824  10081118869533463  10131118869339784  10091118869080102  1005 cREVGeometrycache    order  
total  7                 New Button B
                                       cREVGeneral    revUniqueID  
1118869080102	   
    
   -  222222     O 7   cTag  switcher.title       cREVGeneral    revUniqueID  
1118869155614     
Languages 
   switcherTitle 
   -       
O 7   cTag  switcher.title       cREVGeneral    revUniqueID  
1118869166343     
Languages       K        BP         cREVGeneral    revUniqueID  
1118869296824
    	        JD &   cTag  switch.infoPleaseSelect       cREVGeneral    revUniqueID  
1118869339784
bookmarks   handlerList   prevHandler   tempScript   script        'fur please select one of the languages    
languageList e      " ;      Danish    =Danish
Dutch
english
english46
French
German
Italian
Spanish         cREVGeneral    revUniqueID  
1118869495606
bookmarks   handlerList   tempScript   prevHandler   script   	        changeLanguage ep eon mouseUp
  setLanguageSelection the label of button "languageList"
  close this stack
end mouseUp
         =    cTag  switch.useLanguage Select Language           cREVGeneral    scriptChecksum  /;B)r
bookmarks   revUniqueID  
1118869533463handlerList  mouseUpscriptSelection  
char 14 to 68prevHandler  mouseUptempScript   script  <p><font color="#980517">on</font> mouseUp</p>
<p>  setLanguageSelection the <font color="#FF0000">label </font>of button &quot;languageList&quot;</p>
<p>  <font color="#0000FF">close </font>this stack</p>
<p><font color="#980517">end</font> mouseUp</p>	      